GameStar 1998 November (Bonus)/GAMESTAR11B.ISO/ENCYC99/MM/T620277A.DCR/Scripts_14_Class LabelGod.ls

Text File | 1998-06-29 | 1.8 KB | 70 lines

property layerList, backLabelSprite, frontLabelSprite, labelsOn, labelLayer, dontHide

on catchEvent me, xLayer
  if xLayer = #mouseUp then
    set dontHide to 0
  else
    if labelsOn then
      if the myName of xLayer <> the myName of labelLayer then
        set dontHide to 0
        hideLabels(me)
      end if
    end if
    repeat with i in layerList
      if i = xLayer then
        set labelLayer to i
        next repeat
      end if
      crankDown(i)
    end repeat
    crankUp(labelLayer)
    set the member of sprite backLabelSprite to the labelMember of labelLayer
    set the member of sprite frontLabelSprite to the labelMember of labelLayer
    if not labelsOn then
      set labelsOn to 1
      set the visible of sprite backLabelSprite to 1
      set the visible of sprite frontLabelSprite to 1
      set dontHide to 1
    end if
  end if
end

on hideLabels me
  if not dontHide then
    if labelsOn then
      set the visible of sprite backLabelSprite to 0
      set the visible of sprite frontLabelSprite to 0
      repeat with i in layerList
        beNormal(i)
      end repeat
    end if
    set labelsOn to 0
  end if
end

on refresh me
  global ScrollBar
  set the member of sprite backLabelSprite to the labelMember of labelLayer
  set the member of sprite frontLabelSprite to the labelMember of labelLayer
  newMember(ScrollBar, the layerCopy of labelLayer)
end

on new me, xBackSprite, xFrontSprite
  set backLabelSprite to xBackSprite
  set frontLabelSprite to xFrontSprite
  set layerList to []
  set labelsOn to 0
  puppetSprite(backLabelSprite, 1)
  puppetSprite(frontLabelSprite, 1)
  set the visible of sprite backLabelSprite to 0
  set the visible of sprite frontLabelSprite to 0
  return me
end

on addThing me, xThing
  add(layerList, xThing)
  if count(layerList) = 1 then
    set labelLayer to xThing
  end if
end